home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / Syn Text Editor 2.1.0.46 / synsetup-2.1.0.46.exe / {app} / scripts / quote.vbs < prev    next >
Encoding:
Text File  |  2003-09-14  |  2.0 KB  |  50 lines
  1. ' Caption: Quote selection|
  2. ' Hint: Quote selected text with user defined item|
  3. '
  4. '  syn
  5. '  Copyright (C) 2000-2003, Ascher Stefan. All rights reserved.
  6. '  stievie@utanet.at, http://web.utanet.at/ascherst/
  7. '
  8. '  The contents of this file are subject to the Mozilla Public License
  9. '  Version 1.1 (the "License"); you may not use this file except in compliance
  10. '  with the License. You may obtain a copy of the License at
  11. '  http://www.mozilla.org/MPL/
  12. '
  13. '  Software distributed under the License is distributed on an "AS IS" basis,
  14. '  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
  15. '  the specific language governing rights and limitations under the License.
  16. '
  17. '  The Original Code is quote.vbs, released Sun, 26 May 2002 10:55:39 UTC.
  18. '
  19. '  The Initial Developer of the Original Code is Ascher Stefan.
  20. '  Portions created by Ascher Stefan are Copyright (C) 2000-2003 Ascher Stefan.
  21. '  All Rights Reserved.
  22. '
  23. '  Contributor(s): .
  24. '
  25. '  Alternatively, the contents of this file may be used under the terms of the
  26. '  GNU General Public License Version 2 or later (the "GPL"), in which case
  27. '  the provisions of the GPL are applicable instead of those above.
  28. '  If you wish to allow use of your version of this file only under the terms
  29. '  of the GPL and not to allow others to use your version of this file
  30. '  under the MPL, indicate your decision by deleting the provisions above and
  31. '  replace them with the notice and other provisions required by the GPL.
  32. '  If you do not delete the provisions above, a recipient may use your version
  33. '  of this file under either the MPL or the GPL.
  34. '
  35. '  You may retrieve the latest version of this file at the syn home page,
  36. '  located at http://syn.sourceforge.net/
  37. '
  38. ' $Id: quote.vbs,v 1.3.2.6 2003/09/14 17:52:56 neum Exp $
  39.  
  40. option explicit
  41.  
  42. sub Main(dummy)
  43.   dim q
  44.  
  45.   q = InputBox("What?", , Chr(34))
  46.   if q <> "" then
  47.     ActiveDocument.SelText = q & ActiveDocument.SelText & q
  48.   end if
  49. end sub
  50.